home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / talkdemo / txt / talkbase.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  70 lines
  1. DEFINITION MODULE TalkBase;
  2. (*$ LargeVars:=FALSE *)
  3.  
  4. (*
  5.  * Öffnet Display und besetzt die Variablen
  6.  *)
  7.  
  8. FROM SYSTEM    IMPORT    ADDRESS;
  9. FROM IntuitionD    IMPORT    WindowPtr,ScreenPtr;
  10. FROM GraphicsD    IMPORT    TextAttrPtr,RastPortPtr;
  11.  
  12. TYPE
  13.   (* Erlaubte Phoneme für centphon: (ADR("IY")) *)
  14.   CentrPhons=(iy,ih,eh,ae,aa,ah,ao,ow,uh,er,uw);
  15.  
  16.   NarrData=RECORD
  17.     rate,
  18.     pitch,
  19.     mode,
  20.     sex,
  21.     volume,
  22.     sampFreq:CARDINAL;
  23.     f0Enthusiasm,
  24.     f0Perturb:SHORTCARD;
  25.     f1Adj,
  26.     f2Adj,
  27.     f3Adj,
  28.     a1Adj,
  29.     a2Adj,
  30.     a3Adj:SHORTINT;
  31.     articulate,
  32.     centralize:SHORTCARD;
  33.     avBias,
  34.     afBias,
  35.     priority:SHORTINT;
  36.     centphon:CentrPhons; (* internal number! *)
  37.   END;
  38.  
  39.   Str127=ARRAY[0..127] OF CHAR;
  40.   Str255=ARRAY[0..255] OF CHAR;
  41.   AA12=ARRAY[0..11] OF ADDRESS;
  42.  
  43. CONST
  44.   (* für Mouth-Draw: *)
  45.   midX=508;
  46.   midY=170;
  47.  
  48. VAR
  49.   quit,
  50.   saveIcons:BOOLEAN;
  51.  
  52.   myNarr,
  53.   defNarr:NarrData;
  54.  
  55.   phonBuff:Str255;
  56.   textBuff:Str127;
  57.  
  58.   (*$ LongAlign:=TRUE *)
  59.  
  60.   vi:ADDRESS;
  61.   myWindow:WindowPtr;
  62.   myScreen:ScreenPtr;
  63.   myRp:RastPortPtr;
  64.   myTextAttr:TextAttrPtr;
  65.   centLabs:AA12;
  66.  
  67. PROCEDURE SetBusy(busy:BOOLEAN);
  68.  
  69. END TalkBase.def
  70.